peval = function(arg) {
   cat('*** ', deparse(substitute(arg)), ' ***', fill=TRUE)
   print(arg) }
